home *** CD-ROM | disk | FTP | other *** search
/ PCMania 19 / PCMania19.iso / Jogos em Flash / ESTRATEGIA / BATTLE_SHIPS.SWF / scripts / frame_143 / DoAction.as
Text File  |  2003-11-17  |  794b  |  36 lines
  1. ok = "1";
  2. x = - "2";
  3. while(x < "3")
  4. {
  5.    y = - "2";
  6.    while(y < "3")
  7.    {
  8.       if(eval("s" add sd add (x + "2") add (y + "2")))
  9.       {
  10.          if(xx + x < "0" or "19" < xx + x or yy + y < "0" or "19" < yy + y)
  11.          {
  12.             ok = "0";
  13.          }
  14.          y1 = - "1";
  15.          while(y1 < "2")
  16.          {
  17.             x1 = - "1";
  18.             while(x1 < "2")
  19.             {
  20.                if(eval("m" add (xx + x1 + x) add "_" add (yy + y1 + y)))
  21.                {
  22.                   if(eval("m" add (xx + x1 + x) add "_" add (yy + y1 + y)) != sd)
  23.                   {
  24.                      ok = "0";
  25.                   }
  26.                }
  27.                x1 += "1";
  28.             }
  29.             y1 += "1";
  30.          }
  31.       }
  32.       y += "1";
  33.    }
  34.    x += "1";
  35. }
  36.